home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / -simple scroller (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  383 b   |  8 lines
  1. 1 print"[147][142][150]                                        [146]"
  2. 2 print"                                        [146]"
  3. 5 poke53280,13:poke56334,0
  4. 10 poke53281,0:printchr$(5)"":fori=1to5:printchr$(17):next:print"away we go"
  5. 20 fori=1to28:wait53266,128:print"[145][148] [157]":poke53270,192
  6. 30 poke53270,peek(53270)and248:wait53265,128
  7. 40 forj=1to7:poke53270,(peek(53270)and248)+j:fork=1to15:nextk,j,i:run
  8.